home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
dskut
/
2m21src.zip
/
2MFBMAKE.BAS
< prev
next >
Wrap
BASIC Source File
|
1994-05-31
|
430b
|
18 lines
100 '
110 ' Convertir 2MFBOOT.BIN a listado ensamblador con DefineByte
120 '
130 DEFINT I,J
140 OPEN "R",#1,"2mfboot.bin",1
150 OPEN "2mfboot.db" FOR OUTPUT AS #2
160 FIELD #1,1 AS A$
170 FOR I=0 TO 319
180 PRINT #2," DB ";
190 FOR J=0 TO 7
200 GET #1
210 PRINT #2,USING"###";ASC(A$);
220 IF J<>7 THEN PRINT #2,", "; ELSE PRINT #2,
230 NEXT
240 NEXT
250 CLOSE #1, #2
260 SYSTEM